home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / docs / fqueend.lha / FlightOfTheAmazonQueenHDI.lha / fotaq-hdinstall < prev    next >
Encoding:
Text File  |  1995-10-12  |  2.7 KB  |  129 lines
  1. ;$VER:Script generated by DRACS for FLIGHT OF THE AMAZON QUEEN ( hd-install ).
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWelcome to \n"
  10. "FLIGHT OF THE AMAZON QUEEN ( hd-install ).\n"
  11. "Hard Disk Install Script\n\n\n\n"
  12. "This script has been generated by DRACS\n\n"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "FLIGHT OF THE AMAZON QUEEN ( hd-install ). requires 11 MB free on your disk \n\n"
  16. "Think of it before destroying your disk...\n\n"
  17. ))(set #Path-Txt
  18. (cat "Select the target directory. A directory AMAZON will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "target directory to install FLIGHT OF THE AMAZON QUEEN ( hd-install ).. \n\n"
  23. "A directory AMAZON will be created there.\n\n"
  24. "Default is Work:\n\n\n"
  25. @askdir-help
  26. ))
  27. (set Assign-Help-Txt
  28. (cat "\nA script located in the target directory wil make "
  29. "the Assigns. The User-Startup will be patched in order "
  30. "to call this script.\n\n\n"
  31. @startup-help
  32. ))
  33. ; Main 
  34.  
  35. (message #Intro-Txt)
  36. (message #Warning-Txt)
  37. (set target 
  38. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  39. ))
  40. (set @default-dest target)
  41. (copyfiles
  42. (prompt "Copying to " #target)
  43. (help @copy-files-help)
  44. (source "FOTAQ_1:")
  45. (dest (tackon target "AMAZON"))
  46. (pattern "#?")
  47. )
  48. (complete 9)
  49. (copyfiles
  50. (prompt "Copying to " #target)
  51. (help @copy-files-help)
  52. (source "FOTAQ_2:")
  53. (dest (tackon target "AMAZON"))
  54. (pattern "#?")
  55. )
  56. (complete 18)
  57. (copyfiles
  58. (prompt "Copying to " #target)
  59. (help @copy-files-help)
  60. (source "FOTAQ_3:")
  61. (dest (tackon target "AMAZON"))
  62. (pattern "#?")
  63. )
  64. (complete 27)
  65. (copyfiles
  66. (prompt "Copying to " #target)
  67. (help @copy-files-help)
  68. (source "FOTAQ_4:")
  69. (dest (tackon target "AMAZON"))
  70. (pattern "#?")
  71. )
  72. (complete 36)
  73. (copyfiles
  74. (prompt "Copying to " #target)
  75. (help @copy-files-help)
  76. (source "FOTAQ_5:")
  77. (dest (tackon target "AMAZON"))
  78. (pattern "#?")
  79. )
  80. (complete 45)
  81. (copyfiles
  82. (prompt "Copying to " #target)
  83. (help @copy-files-help)
  84. (source "FOTAQ_6:")
  85. (dest (tackon target "AMAZON"))
  86. (pattern "#?")
  87. )
  88. (complete 54)
  89. (copyfiles
  90. (prompt "Copying to " #target)
  91. (help @copy-files-help)
  92. (source "FOTAQ_7:")
  93. (dest (tackon target "AMAZON"))
  94. (pattern "#?")
  95. )
  96. (complete 63)
  97. (copyfiles
  98. (prompt "Copying to " #target)
  99. (help @copy-files-help)
  100. (source "FOTAQ_8:")
  101. (dest (tackon target "AMAZON"))
  102. (pattern "#?")
  103. )
  104. (complete 72)
  105. (copyfiles
  106. (prompt "Copying to " #target)
  107. (help @copy-files-help)
  108. (source "FOTAQ_9:")
  109. (dest (tackon target "AMAZON"))
  110. (pattern "#?")
  111. )
  112. (complete 81)
  113. (copyfiles
  114. (prompt "Copying to " #target)
  115. (help @copy-files-help)
  116. (source "FOTAQ_10:")
  117. (dest (tackon target "AMAZON"))
  118. (pattern "#?")
  119. )
  120. (complete 90)
  121. (copyfiles
  122. (prompt "Copying to " #target)
  123. (help @copy-files-help)
  124. (source "FOTAQ_11:")
  125. (dest (tackon target "AMAZON"))
  126. (pattern "#?")
  127. )
  128. (complete 100)
  129.